File:of Tape: OS8/OS8-V3D/al-4761c-ba-os8-v3d-ext
(Source file text)
0 LET F=F+1 960 IF D>0 THEN 990 970 PRINT #2: 980 GO TO 680 990 LET D=POS(L2$,F$,1) \ LET P=D 1000 IF D>0 THEN 1030 1010 LET L$=L2$ 1020 GO TO 820 1030 LET L$=SEG$(L2$,1,P-1) 1040 LET L2$=SEG$(L2$,P+1,72) 1050 GO TO 820 1060 CLOSE #2 1070 STOP 1080 LET L=LEN(L$) 1090 GOSUB 1250 1100 IF C=32 THEN 1090 1110 IF C<0 THEN 1220 1120 LET I=I-1 1130 LET P=I 1140 GOSUB 1310 1150 IF N1=0 THEN 1220 1160 FOR J=1 TO T 1170 IF N1<>N(J) THEN 1210 1180 LET Q$=STR$(J*S-S+S1) 1190 LET L$=SEG$(L$,1,P-1)&Q$ 1200 GO TO 920 1210 NEXT J 1220 PRINT "BAD REFERENCE" 1230 PRINT L$ 1240 GO TO 920 1250 IF I<=L THEN 1280 1260 LET C=-1 1270 RETURN 1280 LET C=ASC(SEG$(L$,I,I)) 1290 LET I=I+1 1300 RETURN 1310 LET N1=0 1320 GOSUB 1250 1330 IF C<48 THEN 1370 1340 IF C>57 THEN 1370 1350 LET N1=N1*10+C-48 1360 GO TO 1320 1370 IF C<0 THEN 1390 1380 LET I=I-1 1390 RETURN 1400 END